home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1 / Ian and Stuart's One (Australia).iso / Australasian Legends / Commercial / Rainbow Hill / MacDOS™ 2.0.0 / batches / compare.bat < prev    next >
DOS Batch File  |  1993-09-28  |  682b  |  43 lines
  1. @echo off
  2. open "MacDOS demo.cpt.hqx" first
  3. open "m" second
  4. onerror err
  5. set k=0
  6. read %first% x1
  7. read %second% x2
  8. repeat loop
  9.   incr k
  10.   set kk=%k%
  11.   incr -kk by "  "
  12.   decr kk by 2
  13.   set kkk=%k%
  14.   incr -kkk by "  "
  15.   decr -kkk by %kk%
  16.   if %kkk% == 00 echo %k%
  17.   read %first% x1
  18.   set xx1=%x1%
  19.   decr xx1 by 32
  20.   read %second% x2
  21.   set xx2=%x2%
  22.   decr xx2 by 32
  23.   if not %xx1% == %xx2% goto diff
  24.     set xx1=%x1%
  25.     decr -xx1 by 32
  26.     set xx2=%x2%
  27.     decr -xx2 by 32
  28.     if %xx1% == %xx2% goto loop
  29. :diff
  30.     echo line No %k%:
  31.     echo   %x1%
  32.     echo   %x2%
  33.     goto bye
  34. :loop
  35. :err
  36. show %doserr% mess
  37. echo error %doserr%: %mess%
  38. :done
  39. %k% lines
  40. :bye
  41. close %first%
  42. close %second%
  43.